unit TRefOrderAccessory;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TRefOrderAccessoryVO = class(TDataTransferObject)
  private
    FOrderAccessoryId:String;
    FWorkNo: string;
    FAccessoryId: string;
    FNum:Integer;
    FStatus:String;
  published
    property PK_order_accessory_id: string index 0 read FOrderAccessoryId write FOrderAccessoryId;
    property work_no: string index 1 read FWorkNo write FWorkNo;
    property accorssory_id: String index 2 read FAccessoryId write FAccessoryId;
    property num: Integer index 3 read FNum write FNum;
    property status: string index 4 read FStatus write FStatus;
  public
    constructor Create;
    procedure Reset();
  end;

implementation

constructor TRefOrderAccessoryVO.Create;
begin
  inherited Create;
  tbName := 'inf_ref_order_accessory';
  SetLength(GridInfo, 5);
end;

procedure TRefOrderAccessoryVO.Reset();
begin
  FOrderAccessoryId    := '-999';
  FWorkNo:='-999';
  FAccessoryId:='-999';
  FNum :=-999;
  FStatus:='-999';
end;

end.
